﻿Imports DTO
Imports DAO


Public Class CThamSoBUS
    Public Function LoadDanhSachThamSo() As CThamSoDTO
        Return New CThamSoDAO().LoaiDanhSachThamSo()
    End Function

    Public Sub UpdateTuoiLonNhat(ByVal tuoilonnhat As Integer)
        Dim tsdao As New CThamSoDAO()
        tsdao.UpdateTuoiNhoNhat(tuoilonnhat)
    End Sub

    'Me.m_iTuoiNhoNhat = _reader("TuoiNhoNhat")
    Public Sub UpdateTuoiNhoNhat(ByVal tuoinhonhat As Integer)
        Dim tsdao As New CThamSoDAO()
        tsdao.UpdateTuoiNhoNhat(tuoinhonhat)
    End Sub


    'Me.m_iTienPhatTraTreMoiNgay = _reader("TienPhatTraTreMoiNgay")
    Public Sub UpdateTienPhatTraTreMoiNgay(ByVal tienphattratremoingay As Integer)
        Dim tsdao As New CThamSoDAO()
        tsdao.UpdateTienPhatTraTreMoiNgay(tienphattratremoingay)
    End Sub

    'Me.m_iThoiHanSach = _reader("ThoiHanSach")
    Public Sub UpdateThoiHanSach(ByVal thoihansach As Integer)
        Dim tsdao As New CThamSoDAO()
        tsdao.UpdateThoiHanSach(thoihansach)
    End Sub


    'Me.m_iThoiHanMuonToiDa = _reader("ThoiHanMuonToiDa")
    Public Sub UpdateThoiHanMuonToiDa(ByVal thoihanmuontoida As Integer)
        Dim tsdao As New CThamSoDAO()
        tsdao.UpdateThoiHanMuonToiDa(thoihanmuontoida)
    End Sub


    'Me.m_iSoLyDoThanhLy = _reader("SoLyDoThanhLy")
    Public Sub UpdateSoLyDoThanhLy(ByVal solydothanhly As Integer)
        Dim tsdao As New CThamSoDAO()
        tsdao.UpdateSoLyDoThanhLy(solydothanhly)
    End Sub


    'Me.m_iSoLuongTheLoaiSach = _reader("SoLuongTheLoaiSach")
    Public Sub UpdateSoLuongTheLoaiSach(ByVal sotheloaisach As Integer)
        Dim tsdao As New CThamSoDAO()
        tsdao.UpdateSoLuongTheLoaiSach(sotheloaisach)
    End Sub


    'Me.m_iSoLuongMuonToiDa = _reader("SoLuongMuonToiDa")
    Public Sub UpdateSoLuongMuonToiDa(ByVal soluongmuontoida As Integer)
        Dim tsdao As New CThamSoDAO()
        tsdao.UpdateSoLuongMuonToiDa(soluongmuontoida)
    End Sub

    'Me.m_iSoLuongChucVu = _reader("SoLuongChucVu")
    Public Sub UpdateSoLuongChucVu(ByVal soluongchucvu As Integer)
        Dim tsdao As New CThamSoDAO()
        tsdao.UpdateSoLuongChucVu(soluongchucvu)
    End Sub

    'Me.m_iSoLuongBoPhan = _reader("SoLuongBoPhan")
    Public Sub UpdateSoLuongBoPhan(ByVal soluongbophan As Integer)
        Dim tsdao As New CThamSoDAO()
        tsdao.UpdateSoLuongBoPhan(soluongbophan)
    End Sub

    'Me.m_iSoLuongBangCap = _reader("SoLuongBangCap")
    Public Sub UpdateSoLuongBangCap(ByVal soluongbangcap As Integer)
        Dim tsdao As New CThamSoDAO()
        tsdao.UpdateSoLuongBangCap(soluongbangcap)
    End Sub

    'Me.m_iSoLoaiDocGia = _reader("SoLoaiDocGia")
    Public Sub UpdateSoLoaiDocGia(ByVal soloaidocgia As Integer)
        Dim tsdao As New CThamSoDAO()
        tsdao.UpdateSoLoaiDocGia(soloaidocgia)
    End Sub


    'Me.m_iGiaTriThe = _reader("GiaTriThe")
    Public Sub UpdateGiaTriThe(ByVal giatrithe As Integer)
        Dim tsdao As New CThamSoDAO()
        tsdao.UpdateGiaTriThe(giatrithe)
    End Sub

    Public Function LayThoiHanMuonToiDa() As Integer
        Return New CThamSoDAO().LayThoiHanMuonToiDa()
    End Function

    Public Function LayTienPhatTraTre() As Integer
        Return New CThamSoDAO().LayTienPhatTraTre()
    End Function

    Public Function LaySoLuongMuonToiDa() As Integer
        Return New CThamSoDAO().LaySoLuongMuonToiDa()
    End Function

    Public Function LayThoiHanThe() As Integer
        Return New CThamSoDAO().LayThoiHanThe()
    End Function
End Class
